COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00004 ENDMK
C⊗;
BEGIN "TEST"
DEFINE CRLF="'15&'12",⊃="COMMENT";
REAL ARRAY A[1:6,1:6],B[1:6];
INTEGER OUTCHAN;
INTEGER I,FOO;
REAL PI;

INTEGER PROCEDURE OPENFILE(STRING FILENAME);
	BEGIN
	INTEGER FLAG;
	INTEGER OCHAN;
	OPEN (OCHAN←GETCHAN,"DSK",0,0,2,0,0,0);
	WHILE TRUE DO
		BEGIN
		ENTER (OCHAN,FILENAME,FLAG);
		IF NOT FLAG THEN DONE ELSE
			PRINT ("CANNOT WRITE FILE",FILENAME," TRY AGAIN");
		END;
	RETURN(OCHAN);
	END;

PI←3.14159265;
OUTSTR("TYPE NUMBER TO SQUARE ");
I←CVD(INCHWL);
OUTSTR(CVS (I)&" SQUARED IS "& CVS(I*I));
OUTSTR (CRLF&CVG(PI));

OUTCHAN←OPENFILE("VIC.VIC");

FOR I←1 STEP 1 UNTIL 50 DO OUT(OUTCHAN,CRLF&CVS(I)&" SQUARED IS " & CVS(I*I));
CLOSE(OUTCHAN);
RELEASE (OUTCHAN);

END;